home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
toasterpaint
/
tpepsload.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-12-22
|
1KB
|
43 lines
/* TPEpsLoad.rexx -- Load EPS as Brush */
/* © 1995 NewTek, Inc. by Bob Caron */
if pos('DigiPaint',show(ports))=0 then do
exit
end
options results
Address "DigiPaint" /* Tell ARexx where commands go */
'Askf' "Load EPS"
file=result
if file="FILE" | file="" then
file="Toaster:PsFonts"
if lastpos('/',file,length(file)-1)~=0 then do
filenam=right(file,(length(file)-lastpos('/',file,length(file)-1)))
path=left(file,(lastpos('/',file,length(file))-1))
end
else do
filenam=right(file,(length(file)-lastpos(':',file,length(file)-1)))
path=left(file,(lastpos(':',file,length(file))))
end
width=100
height=100
'Asku'"Select Size:"
size=translate(result,' ',',abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!@#$%^&*()-_=+\|][{};::/"><,.~`?')
width=word(size,1)
height=word(size,2)
if width<1 then width=20
if height<1 then height=20
address command "C:psimage "path"/"||value("filenam")||" T:temp.bsh"||" "||value(width)||" "||value("height")||" "
'Lobr'
'Fnam'"T:temp.bsh" /* Enter File name */
'Okls' /* Hit the OK button */
exit